home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  522b  |  24 lines
  1. 10 @3:@2:poke50913,1:poke50959,1:poke50918,0:poke50964,0:poke50923,0:poke50969,0
  2. 20 x1%=0:x2%=320
  3. 30 fory=0to200step8
  4. 50 y1%=y:y2%=200-y
  5. 60 @4,x1%,y2%:@7,x2%,y1%,0
  6. 70 nexty
  7. 80 y1%=0:y2%=200
  8. 90 forx=320to0step-10
  9. 100 x1%=x:x2%=320-x
  10. 110 @4,x2%,y1%:@7,x1%,y2%,0
  11. 120 nextx
  12. 130 @4,0,0:@7,319,0,0:@7,319,199,0
  13. 140 @7,0,199,0:@7,0,0,0
  14. 145 forn=0to50
  15. 150 c1%=16*rnd(0):c2%=16*rnd(0)
  16. 160 if(c1%=c2%)goto150
  17. 170 poke646,c1%:poke53281,c2%
  18. 180 fori=0to100:next
  19. 190 nextn
  20. 200 poke53281,6:print"[147]print burst pattern (y/n)?":@1
  21. 210 getc$:if(c$="")goto210
  22. 220 if(c$<>"y")thenprint"[147]":end
  23. 230 @2:@14:print"[147]":@1:end
  24.